<%
''on error resume next
dim csidesideban, rsidesideban, sqlsidesideban
set csidesideban=server.createobject("adodb.connection")
csidesideban.open DSN_NAME
set rsidesideban=server.createobject("adodb.recordset")
sqlsidesideban="select * from sideside_banner"
rsidesideban.open sqlsidesideban, csidesideban,3
'if rsidesideban.eof=true and rsidesideban.bof=true then
dim printOBJ2
do while not rsidesideban.eof
if rsidesideban("active") = 1 then '' is the ban Active ?
if rsidesideban("banner_href") = "0" then
linker = ""
else
if rsidesideban("blank_target") = "1" then blankTar = " target=_blank"
linker = ""
end if
if rsidesideban("is_swf") = "1" then
printOBJ2 = ""
else
printOBJ2 = linker & ""
end if
response.write "
"
response.write "
" & printOBJ2 & "
"
response.write "
"
else
bo = 1
end if
rsidesideban.movenext
loop
set rsidesideban=nothing
set csidesideban=nothing
response.write "